COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.ENABLE SUBSTITUTION
C00008 ENDMK
C⊗;
.ENABLE SUBSTITUTION
.ENABLE LOWERCASE
.;
PIP *.*/PU
.;
; First compile the separate modules
.;
; Now for the Editor.  Hold onto your hat!
.;
.; Level 3 routines
.SETS P "EEXPAR"
.GOSUB PCOMP
.SETS P "EPAR3A"
.GOSUB PCOMP
.SETS P "EPAR3B"
.GOSUB PCOMP
.SETS P "EPAR3C"
.GOSUB PCOMP
.SETS P "EPAR3D"
.GOSUB PCOMP
.SETS P "EPAR3E"
.GOSUB PCOMP
.SETS P "EPAR3F"
.GOSUB PCOMP
.SETS P "EPAR3G"
.GOSUB PCOMP
.SETS P "EAUX3A"
.GOSUB PCOMP
.SETS P "EAUX3B"
.GOSUB PCOMP
.SETS P "EAUX3C"
.GOSUB PCOMP
.SETS P "EAUX3D"
.GOSUB PCOMP
.SETS P "EDEBUG"
.GOSUB PCOMP
.; Level 4 routines
.SETS P "EMAIN"
.GOSUB PCOMP
.SETS P "EMAIN1"
.GOSUB PCOMP
.SETS P "EMAIN2"
.GOSUB PCOMP
.SETS P "EMAIN3"
.GOSUB PCOMP
.SETS P "EMAIN4"
.GOSUB PCOMP
.SETS P "EMAIN5"
.GOSUB PCOMP
.SETS P "EMAIN6"
.GOSUB PCOMP
.SETS P "EEDITS"
.GOSUB PCOMP
.SETS P "EEDIT1"
.GOSUB PCOMP
.SETS P "EEDIT2"
.GOSUB PCOMP
.SETS P "EEDIT3"
.GOSUB PCOMP
.SETS P "EEDIT4"
.GOSUB PCOMP
.SETS P "EADDST"
.GOSUB PCOMP
.SETS P "EADD1"
.GOSUB PCOMP
.SETS P "EADD2"
.GOSUB PCOMP
.SETS P "EADD3"
.GOSUB PCOMP
.SETS P "EADD4"
.GOSUB PCOMP
.SETS P "EADD5"
.GOSUB PCOMP
.SETS P "EADD6"
.GOSUB PCOMP
.SETS P "EADD7"
.GOSUB PCOMP
.SETS P "EADD8"
.GOSUB PCOMP
;
; Now task build it
;
PIP *.*/PU
.ASK DOTKB Ready for task build?
.IFF DOTKB .GOTO 1000
PIP EAL.TSK;*/DE
TKB @EAL
.GOTO 1000
.;
.; Routine which compiles a single PASCAL module
.;
.PCOMP: .;
;
;	Compiling 'P'
PS2 'P'.2
PIP 'P'.2;*/DE
.RETURN
.;
.;
.; Routine which compiles a single MACRO module
.;
.MCOMP: .;
;
;	Compiling 'P'
MAC 'P'=PASMAC,'P'.MAC
PIP 'P'.MAC;*/DE
.RETURN
.;
.1000: .;
;ππALL DONE NOW...